home *** CD-ROM | disk | FTP | other *** search
/ Ahoy 1988 April / Ahoy_Magazine_88-04_1988_Double_L.d64 / VIC Chip (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  713b  |  23 lines
  1. 10 gosub110
  2. 20 rem gosub 160 if you have char data
  3. 30 end:rem set up in block 3 now!
  4. 40 :
  5. 50 a$(1)="useful vic chip routines-basic"
  6. 60 a$(2)="[212]his routine moves video memory"
  7. 70 a$(3)="to block 3, copies down the"
  8. 80 a$(4)="character set and switches over"
  9. 90 a$(5)="the screen editor"
  10. 100 rem screen = 49152:charset = 61440
  11. 110 fori=1to5:printa$(i):next
  12. 115 poke781,9:poke782,1:poke90,.:poke91,216:poke88,.:poke89,248
  13. 120 poke56333,127:poke1,51:sys41964:poke1,55:poke56333,129
  14. 130 poke56578,peek(56578)or3:poke56576,peek(56576)and252
  15. 140 poke53272,peek(53272)and15:poke648,192:printchr$(147)
  16. 150 poke53272,(peek(53272)and240)or12:return
  17. 160 :
  18. 170 rem this subroutine reads in and
  19. 180 rem pokes character data until it
  20. 190 rem encounters a -1 in the data
  21. 200 reada:ifa=-1thenreturn
  22. 210 forx=.to7:readd:poke61440+a*8+x,d:next:goto200
  23.